home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a22.bas < prev    next >
BASIC Source File  |  1993-11-30  |  3KB  |  98 lines
  1. 1000 'A22.BAS***************************************************T.K.MOSAKU
  2. 1010 COLOR 7,0,0
  3. 1020 '
  4. 1030 SCREEN@ 1:CLS
  5. 1040 LINE (49,49)-(271,191),PSET,5,B
  6. 1050 A$="☆☆☆ 色のグラデュエーションで, 夕暮れのイメージを表します｡ ☆☆☆"
  7. 1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,22:PRINT SPACE$(B)+A$
  8. 1070 T1=TIME:WAIT 150
  9. 1080 '
  10. 1090 G1=.15!*255:R1=1!*255  :B1=.15!*255':PRINT RND(1)
  11. 1100 G2=.75!*255:R2=.95!*255:B1=.75!*255':PRINT RND(2) 
  12. 1110 FOR I=50 TO 190
  13. 1120   G=G1+((G2-G1)*I)/210
  14. 1130   R=R1+((R2-R1)*I)/220
  15. 1140   B=B1+((B2-B1)*I)/230
  16. 1150   LINE (50,I)-(270,I),PSET,[G,R,B]:WAIT 2
  17. 1160 NEXT
  18. 1170 WAIT 50
  19. 1180 '
  20. 1190 C=0:GOSUB *SHIRO
  21. 1200 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒｡"
  22. 1210 WAIT 200:CLS 4
  23. 1220 LINE (49,49)-(271,191),PSET,5,B:WAIT 50
  24. 1230 PAINT (0,  0),1,5:WAIT 100
  25. 1240 PAINT (50,50),0,5:WAIT 100
  26. 1250 C=2:GOSUB *SHIRO
  27. 1260 '
  28. 1270 A$="☆☆☆ 星空のイメージ｡ ランダムに星を描きます｡ ☆☆☆"
  29. 1280 A=LEN(A$):B=(80-A)\2:LOCATE 0,22:PRINT SPACE$(B)+A$
  30. 1290 WAIT 150
  31. 1300 RANDOMIZE TIME
  32. 1310 DIM A(285),B(285)
  33. 1320 FOR I=1 TO 285
  34. 1330   *POINT
  35. 1340    X=(RND(1))*218+51
  36. 1350    Y=(RND(1))*133+51
  37. 1360    IF X>78 AND X<140 AND Y>117 AND Y<185 THEN GOTO *POINT
  38. 1370    A(I)=X:B(I)=Y
  39. 1380    CIRCLE (X,      Y),1,,,,,F,,INT(RND(1)*7)
  40. 1390 NEXT I
  41. 1395 X(1)=240:Y(1)=60:X(2)=260:Y(2)=55
  42. 1396 FOR E=1 TO 3
  43. 1400   FOR J=0 TO 2
  44. 1410     FOR I=1 TO 285
  45. 1420      CIRCLE (A(I),B(I)),1,,,,,F,,INT(RND(1)*7)
  46. 1430     NEXT I
  47. 1440   NEXT J
  48. 1670 '
  49. 1675   IF E=3 THEN GOTO 1760
  50. 1680   CIRCLE (X(E),Y(E)),1,,,,,F,,6
  51. 1690   WAIT 10
  52. 1700   CIRCLE (X(E),Y(E)),1,,,,,F,,0
  53. 1710   FOR K=0 TO 65
  54. 1720     CIRCLE (X(E)-K*2,Y(E)+K),1,,,,,F,,6
  55. 1730     CIRCLE (X(E)-K*2,Y(E)+K),1,,,,,F,,0
  56. 1740   NEXT
  57. 1750 NEXT
  58. 1760 GOTO 5000
  59. 1790 '
  60. 1800 '
  61. 1810 '
  62. 1820 '
  63. 1830 '
  64. 1840 '
  65. 1850 '
  66. 1860 '
  67. 1870 '
  68. 1880 '
  69. 1890 '
  70. 1900 '
  71. 1910 '
  72. 1920 '
  73. 1930 '
  74. 1940 '
  75. 1950 '
  76. 1960 '
  77. 2470 *SHIRO
  78. 2480   LINE (55, 188)-(265,190),PSET,C,BF
  79. 2490   LINE (70, 185)-(150,190),PSET,C,BF
  80. 2500   LINE (80, 175)-(120,190),PSET,C,BF
  81. 2510   LINE (115,180)-(135,190),PSET,C,BF
  82. 2520   LINE (106,123)-(110,123),PSET,C'ZYUUZIKA YOKO
  83. 2530   LINE (108,130)-(108,120),PSET,C'ZYUUZIKA TATE
  84. 2540 '
  85. 2550   LINE (103,155)-(113,190),PSET,C,BF'****************2
  86. 2560   LINE (103,155)-(108,130),PSET,C'*******************2
  87. 2570   LINE (108,130)-(113,155),PSET,C:PAINT (107,150),C'*2
  88. 2580 '
  89. 2590   LINE (115,165)-(125,190),PSET,C,BF'****************1
  90. 2600   LINE (115,165)-(120,140),PSET,C'*******************1
  91. 2610   LINE (120,140)-(125,165),PSET,C:PAINT (117,163),C'*1
  92. 2620 '
  93. 2630   LINE (91, 175)-(101,180),PSET,C,BF'****************3
  94. 2640   LINE (91, 175)-(96, 150),PSET,C'*******************3
  95. 2650   LINE (96, 150)-(101,175),PSET,C:PAINT (96,173),C'**3
  96. 2660 RETURN
  97. 5000 '
  98.